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0001 8 Ztitle 'RMSINPUT = Handle RMS File Input' 

ait) module rmsinput ( 

0005 1 ident="V04-000') = begin 

8 

0006 1 i eeeeeteeeeeeeeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeeedeeeeeeeeeteneeeeeeeeeeeeeeeee 

0007 1 !* 

0008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

Bete ' ‘© ALL RIGHTS RESERVED. : 
‘* 

Betg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copie? * 

0015 1 !* On i" ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

0014 1 !* INCLUSION OF THE ABOVE Tg NOTICE. THIS SOFTWARE OR ANY 0 HER * 

0015 1 !« COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

oate : 7 TRANSFERRED. : 
‘® 

0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

Boe) ’ bs CORPORATION. : 
‘* 

$098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0024 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

ae 3 

0027 1 PETTITIILITLI LLL LLL LI LLL LLL LLL LLL TLL iLL 

0028 1! 

0080 | t+ 

0031 Facility: VAX/VMS Analyze Facility, Handle RMS File Input 

0033 1 ! Abstract: This module is Fee cone for handling file specs from 

0034 1! the ANALYZE/RMS_FILE command Line, and reading data from 

0035 1! file headers and RMS files. 

0037 | 

p38 : Environment: 

ere : Author: Paul C. Anagnostopoulos, Creation Date: 16 February 1981 

0042 Modified By: 

0044 1! v03-009 ot $0206 Benn Schreiber 20-MAR-1984 

BRO? : Correct changes made in 007. 

0047 1! v03-008 JwT0164 Jim Teague 10-Mar-1984 

sk : Change arguments to signal when status is not rms$_nmf. 

0050 1! v03-007 LJA0114 Laurie J. Anderson 24-Feb-1984 

0051 1! dd new related file persing orguapats to LIBSFIND. FILE 

i : to make search Lists behave properly. 

Boe 1! v03-006 RRB0002 Rowland R. Bradle 

Brae ' Add support for the display of Journal ing information, 

0087 1! v03-005 PCA1019 Paul C. Anagnostopoulos 23-May-1983 


RMSINPUT = Handle RMS File Input 1bese5-19 4 Ax-11 i 
“11 Bliss<-32 V4.0-74 
erect 98 §9:83i0k — FANALy2°SRESRASINEUS 039; 1 Page 45 
$8.1! Remove READ_CHECK and WRIT 

0989 | Reet duuien“Geek bane ITE_CHECK FDL secondaries, as they 

061 1: V03-004 PCA1011 Paul C. Ana reste oyies “-Apr-19 

O06¢ : } Change the message prefix te AN to cones hae 

oe. 1 i pesacee symbols are unique A... str ANALYZEs. This 

Obes 1 i S necessitated by the new merged message files. 
0066 1! v03-003 PCA1002 Paul C. Anagnosto myles, 26-0ct-1 

4494 : Change the code that generates the FD FILE "primary 

oes 4 i oe that it uses the new rout ne BNL SPREPARE UOTED_STRING 

0070 1! Boe eae the GLOBAL, ‘BUFFER. Count se solender f Lt fil 

port : not just relative and indexed ones. oles bc 
0073 1! v03=002 PCA0030 Paul Anagnostopoulos 24-Mar-19 
8 a : Fix error messages so they use the correct STV ve 
0076 1! v03-001 PCA0009 Paul Anagnostopoulos 16-Mar-19 
4 ' If LIBSFIND_FILE returns a bad status, used the + 

0079 1 ies spec in the error message, rather than the wildcard spec. 
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Module Declarations ° 14-8ep-19 4 99:93) 
pose ! Asbttl ‘Module Declarations’ 

Boe : Libraries and Requires: 

0084 .* 

0085 1 Library ‘Lib’; 

bese ' require ‘rmsreq'; 

0596 1! 

bean : Table of Contents: 

0599 .' 

600 1 forward routine 

0601 1 anlSopen_next_rms_file, 

pO0e 1 anl$ rol. tafe: novalue, 

6035 1 anl$bucket: novalue, 

604 1 anl$format file_header: novalue, 

p609 ' anl$fdl_file: ndvalue; 

0607 1! 

bens : External References: 

0610 1 

0611 1 external routine 

belg 1 anl$format_error, 

06135 1 anl$format_line, 

0614 1 anl$format_protection_mask, 
0615 1 anl$format_skip, 
0616 1 anl$prepare_quoted_string, 
0617 1 6h looet value: addressing_mode(general), 
0618 1 Lib$find_file: addressing_mode(general), 
0619 1 Lib$free_vm: addressing_mode(general), 
0620 1 Lib$get_vm: addressing_mode(general), 
bes) : str$trim: addressing_mode(general); 
0698 1! 
+437) : Global Variables: 
0626 1 ! The following variable is set to point at the file attribute (FAT) 
+934 ; ! structure for the file being analyzed. 

0629 1 global 

pe39 : anl$gl_fat: ref block(,bytel, 

bes ' ! The following variable contains the prolog version number. 
pee ; anl$gw_prolog: word; 

8636 1: : 

ott ’ : Own Variables: 

0639 = ' 

0640 1 ! The following data structures are used to access and read records from 
Bees : ! a file we are to analyze. 

06e8 1 own 

0644 1 own_described_buffer(resultant_spec ,nam$c_maxrss); 
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_W04-000 Module Declarations 14-Sep-1984 11:53:01 ANALYZ.SRCJRMSINPUT.B32;1 
| 3 138 0645 1 own 
(3 139 $68 1 rms_bia: block(xab$c_maxjninam,byte], 

; 140 647 1 rms_ata: blockLxab$c_maxjninam,byte], 

> 141 648 1 rms aia: blocklxab$c_maxjninam,byte], 
13 10g P 0649 1 rms_xabjnl: Sxabjni(aia=rms aia, | 
13 14 P 0650 1 ais=xab$c_maxjninam, 

; 144 P 0651 1 ata=rms_ ata, — 

> 145 P p626 1 ats=xabSc_maxjninam, 
[3 146 P 0655 1 bia=rms_bia, 

> 147 P 0654 1 bis=xab$c_maxjninam, 

> «148 0655 1 nxt=0), 

; 149 bees 1 : 

; 150 65/7 1 rms_xabfhc: $xabfhc(nxt=rms_xabjnl), 

, 33) 0658 1 

; 136 0659 1 rms_xabpro: $xabpro(nxt=rms_xabfhc), 

; 0660 1 

; 132 peel rms_xabdat: $xabdat(nxt=rms_xabpro), 

; 1% 0663 1 rms_rsa: block(nam$c_maxrss,byte], 

s Vor P 0664 1 rms_nam: $nam(esa=rms_rsa, 

: 158 0665 1 ess=nam$c_maxrss), 

. i 0666 1 , 

; 160 P 0667 1 rms_fab: $fab(fac=<bio,get>, 

; «6161 P 0668 1 Nam=rms_nam, 

; 162 0669 1 shr=get, 

: 163 0670 1 xab=rms_xabdat), 

; 164 0671 1 

3; 6165 0672 1 rms_rab: $rab(fab=rms_fab); 
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/v04-000 Module Declarations 4 ae 7 SH ANALYZ.SRCIRMSINPUT.B32;1 . ( 
167 0673 1 
198 ore | Rsbttl *ANLSOPEN_NEXT_RMS_FILE = Right’ 
170 0676 1 | Functional Description: 
171 0677 1! This routine is called to open the next RMS file we are to analyze. 
\7¢ bees : It handles multiple file specs and wildcarding. 
174 0680 1 | Formal Parameters: 
175 0681 1! opened_spec Address of descriptor of buffer in which to return 
176 bes : the spec of the file we open. We set the length. 
178 0684 1! Implicit Inputs: 
12? bees : global data 
181 0687 1 | Implicit Outputs: 
ise bees : global data 
184 0690 1! Returned Value: 
19? $e33 : rue if there is another file, false otherwise. 
187 0693 Side Effects: 
189 0695 1 i-- 
190 0696 1 
191 0697 1 
ioe boas § global routine anl$Sopen_next_rms_file(opened_spec) = begin 
194 0700 2 bind ; 
132 $44 $ opened_spec_dsc = .opened_spec: descriptor; 
197 0708 2 own 
198 0704 2 own_described_buffer (wildcard aget Ramee menrend , 
199 0705 2 wildcard_contéxt: long initial(0), 
oot ti) 3 get_new_spec : long initial(true); 
202 0708 2 local 
203 0709 2 stv: Long, 
She gory $ status: long; 
206 ore 2 e a : 
207 0715 2! If the wildcard context is zero, it means this is the first call, or 
208 0714 2! we finished with a file spec on the previous call. So we must obtain 
310 34 F 2! the next file spec from the command Line. 
11 Or? 5 if .get_new_spec then ( 
212 718 ; wildcard specClen] = nam$c_maxrss; | : 
siz 14 status = cli$get_value(describe('file_specs') ,wildcard_spec); 
$i2 Os) ! If there are no more specs, we are all done. 
217 0758 if not .status then 
$18 0724 return false; ‘ 
} 0736 str$trim(wildcard_spec,wildcard_spec,wildcard_spec); 
21 O78 ; 
33) 0728 ! On the other hand, if the previous call is done, we may have just 
223 0729 ! finished processing a file. Better close it. 
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-v04=000 ANLSOPEN_NEXT_RMS_FILE = Right 14-Sep-1984 11:53:01 | CANALYZ.SRCIRMSINPUT.B32;1 

> 224 0730 

3 6¢eo 0731 if .rms_fabCfab$w_ifi] nequ 0 then ( 

; $8 07 ¢ status = Sclose(fab=rms_fab); | 

; 44 of : 3 check (.status, anirms$_closein,1,resultant_spec,.status,.rms_fab(fab$l_stvJ); 

; 229 Nat 3 : We also better flush the bucket cache, in case we cancelled the 

; £0 0736 3 ! analysis of this file in the middle. 

; €o) 0737 3 

; see 0738 3 anl$bucket(); 

; ¢€3 0739 2); 
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V04-000 ANLSOPEN_NEXT_RMS_FILE = Right 14-Sep-19 3:01 ANALYZ.SRCJRMSINPUT.B32;1 
3 H pee ! We have obtained a wildcard spec from the file parameter. 

84 ! Now we need to find the next file that matches the current wildcard spec. 
$35 0744 resultant spect Len] = nam$c_maxrss; : ; 
240 0745 status = Tib$find_file(wildtard_spec,resultant_spec,wildcard_context,describe(".DAT"), 

4 0746 , stv, &ref(2)”); 

; toe4 str$trim(resultant_spec,resultant_spec,resultant_spec); 

244 0749 : If we failed to find a file, then reset the wildcard context and call 
245 0750 : ourselves recursively to process the next file spec. Also give an 
se8 ore! ! error, unless we just plain ran out of files. 

248 0788 if not .status then ( 

249 0754 ; ~Status nequ rms$_nmf then 

250 0755 signal (anlrms$_openin,1,resultant_spec,.status,.stv); 
251 0756 ; get new spec = true; ; 

$26 0757 return anl$open_next_rms_file(opened_spec_dsc); 

25 0758 2); 

254 0759 2 

255 0760 2 ! Hey, we got a file spec. Open the file and connect the RAB. 

256 0761 2 

257 1434 2 get_new_spec = false; 

258 0763 2 

259 0764 § rms_fabCfab$b_fns] = .resultant_specClen]; 

260 0765 rms_fablfab$l_fna) = .resultant_spec(ptrd; 

261 0766 2 status = Sopen(fab=rms_fab); 

262 0767 2 check (.status, anlrms$_openin,1,resultant_spec,.status,.rms_fabCfab$l_stvJ); 
263 0768 3 if .status then ( 

264 0769 3 status = $connect(rab=rms_rab); 
265 0770 3 check (.status, anlrms$_openin,1,resultant_spec,.status,.rms_rabCrab$l_stv]); 
266 O77) 2 ds 
267 0772 2 : : 

$o8 $4 $ ! If the open failed, then we need to recurse to try the next file. 

270 0775 2 if not .status then : 

271 0776 2 return anl$open_next_rms_file(opened_spec_dsc); 
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' There are some ODS-] crocks in the RMS attribute structure returned in the 
' File Header Characteristics XAB. Let's fix them here so that everyone else 
! can just assume they're OK. — are the following: 

: A VFC header size of zero is the same as two. 

! A bucket size of zero is the same as one. 


if .rms_ fablfebso.. we pee fab$< -vfe and .rms_xabfhcCxab$b_hsz] eqlu 0 then 
=. xabfhcl ngese sz] = 

rms _xabthe xab$b_bkz] = Bonut. rms * vabfheCxab$b_ bkz3,1); 

! Set_up a global pointer to the attribute structure. We can ¥ -— the 

: FATS symbols to reference the information. This assumes that 

i information in the XAB is in the same order as it is in the files header. 

anl$gl_fat = rms_xabfhcCxab$b_rfol; 


! There is some information in the tee Ba a should be global because 
i it is used a lot. Set up that informatio 


anl$prolog_info(); 


: The preceeding hackery has set Be the XAB so that information can 

be easily retrieved. This is a design flaw. I should have designed 
my own structure to contain all this info, along with the prolog 
version and any other global info about the file. 


! Finally, we have to return the resultant file spec to the caller. 


opened. spec_dscClen] = .resultant_spec(len]; 
ch$move(.resultant _spectlenj,. resuttant_spec(ptr], -opened_spec_dsc(ptrJ); 


return true; 

end; 
-TITLE RMSINPUT RMSINPUT = Handle RMS File Input 
-IDENT \vV04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 


P.AAB: .ASCII \file_specs\ : 
-BLKB 2 


63 65 70 73 SF 65 6C 69 66 
Pp -LONG 10 
-ADDRESS P.AAB 
P.AAD: .ASCII \.DAT\ 
Pp : LONG 
eADDRESS P.AAD 
-PSECT SOWNS,NOEXE,2 
OOOOOOFF 00000 RESULTANT SPEC: 


Sete Se Se we 


LONG 5 3 
00000000" 00004 - ADDRESS RESULTANT SPEC +8 : 
00008 -BLKB 25 
00107 -BLK 1 
00108 RMS_BIA:.BLKB 16 
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-LON 
00000001 00524 GET_NEW.SPEC: 
LONG 1 


-PSECT $GLOBAL$,NOEXE.2 
00000 ANL$GL_ da 
00004 ANL$GW_ PROLOG: : 

-BLKB 
EXTRN ANLRMS$ ee whee ALLOC 
EXTRN ANLRMSS$~A 
fit ANLRMS$_ “BACKUP ANLRMS$_BKT 
EX 


TRN ANLRMS$~BKTAREA 
TRN ANLRMS$~ “BRT CHECK 
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V04=000 ANLSOPEN_NEXT_RMS_FILE = Right ae 90: gf: :01 YANALYZ” $Rei RMSINPUT. “i 1 
00000000 0038 LONG 0 
| 0000 003¢ WORD 
03¢ .BYTE 0 
03C BYTE 8 
00000000 00 Ch «LONG 
| 00000000 003¢8 «LONG 
0000 9 aa . WORD 
00 CE .BYTE 
00 O003CF .BYTE 
00000000 0300 «LONG 0 
01 00304 RMS_RAB:.BYTE 1 
44 0309 .BYTE 68 
0000 00306 .WORD 0 
00000000 00308 «LONG 0 
| 00000000 9030¢ .LONG 0 
00000000 003E0 «LONG 0 
90008 003E4 «WORD 03) 
0000 OO3EA -WORD 0 
00000000 003EC «LONG 0 
0000 003F0 .WORD 0 
00 O03r¢ .BYTE 0 
00 003F .BYTE 0 
0000 003F4 ~WORD 0 
0000 003F6 -WORD 0 
00000000 003F8 «LONG 0 
00000000 003FC «LONG 0 
99000000 00400 LONG 0 
00000000 00404 -LONG 0 
00 00408 .BYTE 0 
00 00409 .BYTE 0 
00 0040A .BYTE 
0 90408 .BYTE 0 
00000000 0040C -LONG 0 
00000000" 00410 -ADDRESS RMS_FAB 
00000000 00414 -LONG 0 
OOOOOOFF 00418 WILDCARD. SPEC: - 
00000000" 0041¢ -ADDRESS WILDCARD_SPEC+8 
00420 -BLKB 255 
0051F -BLKB 
00000000 00520 WILDCARD_CONTEXT: 
| 
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-EXTRN ANLAMSS_IDAPRIMRECLEN 
RECRRV 


SEXTRN RMS$_1D KPRIM 
*EXTRN ANL SS 1DXPRO AREAS 
-EXTRN ANLRMS$~1DXPROLOG 

-EXTRN ANLRMS$- IDXREC, ANLRMS$_IDXRECPTR 
+ EXTRN ANLRMS$~IDXSIDR 


RN ANCR MS8-1D48 1DROUPCNT 
JEXTRN ANLRMSS$— IDXSIDRFLA GS 
.EXTRN ANLRMS$_IDXSIDRRECI 
SEXTRN ANLRMSS$— IDXSIDRPTRELAGS 
-EXTRN ANLRMS$~IDXSIDR 
-EXTRN ANLRMSS$— INTERCOMMAND. 
SEXTRN ANLRMSS$~INTERHDG 
“EXTRN ANCRMSS~ “LONGREC 


NGRE 
~EXTRN ANL RSS. Mant io 
ANLRMS$_NOBACKU 


~EXTRN ANCRMS$~ NOEXP RATION 

~EXTRN ANLRMS$_ NOSPANE ILLER 

-EXTRN ANLRMS$_PERFORM 
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~-EXTRN ANLRMSS— =RECEAT en. RECLAIMBKT 
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EXTRN ANLRMS$_ FDLFILENAME 

.EXTRN ANLRMS$~FDLORG ANL RUSS. FDLOWNER 
.EXTRN ANLRMSS$— =F DLPROTEC 
SEXTRN ANLRMS$~ FDLREC 
VEXTRN AN NLRM S$FDLSP in 
-EXTRN A RMSS$ a ane. FDLVFCSIZE 
.E 
.E 
.E 
.E 


x 
«EXTRN ANLRMS$_FDLDATARECCOM 
-EXTRN ANLRMSS$_FDLDUPS 
«EXTRN ANLRMSS$_FDLINDEXAREA 


~-EXTRN ANLRMS$_FDLINDEXFILL 


-EXTRN ANLRMSS_FDLANALAREA 

-EXTRN ANLRMS$_ . or At i 
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-EXTRN ANLRMS$_ ~FDLDATAKEYCOMP 

-EXTRN ANLRMSS$_FDLDATARECCOMP 

-EXTRN ANLRMS$_FDLDATARECS 

-EXTRN ANLRMS$~ 4 at +) laa 

-EXTRN ANLRMS$_F 

»EXTRN ANAS? FDLDUPSPER 
ANLRMS DXCOMP 


A 
ANLRMS$~FDLIDXLENMEAN 
“EXTRN ANLRMSS~STATAREA 
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E NGBKT 

EXTRN ANLRMSS$"N 7 Lb Pm Sen BASS. SPANERROR 
pte AN RASS TOOMA 

Hie ANLR™S$~CACHEFULL 

EX 


TRN ANLRMS$~ PAS HERS LF ALL 
TRN ANLRMSS"FACILITY 


an 


RMSINPUT = _H 


and AX- - .0- 
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:01 ANALYZ.S®° JRMS INPUT .B32;1 (5 

NL$FORMAT_ERROR 
F RMATALINE 
ORMAT_PROTECTION_MASK 

RMAT-SKIP 
REPARE_QUOTED_STRING 

T_VALOE, LIGSF IND FILE 
REE_VM, LIBSGET_VM 


" TRIM, SYS$CLOSE 
-EXTRN SYSSOPEN, SYSSCONNECT 


-PSECT $CODE$,NOWRT,2 
O1FC 00000 .ENTRY ANLSOPEN_NEXT_RMS_FILE, Save R2,R3,R4,R5,- 


R6,R 
9E MOVAB STRSTRIM, RB 
LIBSSIGNAL, R7 
MOVAB RESULTANT_SPEC, R6 


a 
MOVL OPENED SPEC, R3 

B GET_NEQ SPEC, 2 
MOVZBW #255, WILDCARD_SPEC 
PUSHAB WILDCARD_SPEC 


2 AAA 
CALLS #2, CLISGET_VALUE 
MOVL RO, STATUS 
BLBS spats. 1$ 
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PUSHL RMS FAB+12 
ATuS 
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0000v CF 
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rw 
PM 
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P.AAC 
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WILDCARD 
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56 DD 000A7 PUSHL R 
68 63 fe OOA9 CALLS RS STRSTRIM 
| 2 EB OOOAC BLBS STATUS, 
000182CA 8F 5 D1 QOOAF CMPL ide #99018 
| 12 13 00086 BEQL 4 
04 AE pd 00088 PUSHL STV 
| 52 DD 000BB PUSHL STATUS 
56 DD 000BD PUSHL 6 
01 DD O00BF PUSHL #1 
| 00B1109A 8F DD 000C1 PUSHL  #11604122 
67 05 FB 000C7 CALLS #5, LIBSSIGNAL 
| 0524 (6 01 00 BO0CA 5$ MOVL #1. GET_NEW_SPEC 
| 5D 11 OOOCF BRB 
0524 C6 D4 00001 6$ CLRL - GET_NEW_SPE 
| 0388 C6 66 90 000D5 MOVB RESOLTANT_SPEC, RMS _FAB+52 
0380 C6 04 A6 DO OOODA MOVL __— RESULTANT~SPEC#4, RMS_FAB+44 
0384 C6 9F O00ED PUSHAB RMS_FA 
000000006 00 01 FB OO0E4 CALLS #1, SYSSOPEN 
52 50 DO 000EB MOVL RO. STATUS 
16 52 EB OOOEE BLBS STATUS, 7$ 
0390 (6 DD O00FI PUSHL RMS_FAB+12 
52 DD O00FS PUSHL STATUS 
56 DD 000F7 PUSHL 
01 DD OOOF9 PUSHL #1 
00B1109A 8F DD O00FB PUSHL #11604122 
67 05 FB 00101 CALLS #5, LIBSSIGNAL 
27 52 £9 00104 BLBC STATUS, 8$ 
0304 (6 SF 00107 7$ PUSHAB RMS_RAB 
000000006 00 01 FB 0010B CALLS #1, SYSSCONNECT 
52 50 DO 00112 MOVL RO. STATUS 
iE 52 £8 00115 BLBS STATUS, 9$ 
03E0 C6 DD 00118 PUSHL RMS_RAB+12 
52 DD 0011C PUSHL STATUS 
56 DD OO11E PUSHL 6 
01 DD 00120 PUSHL 
00B1109A 8F DD 00122 PUSHL  #11604122 
67 05 FB 00128 CALLS #5, LIBSSIGNAL 
08 3 E8 0012B BLBS STATUS, 9$ 
53 DD OOizE 8$ PUSHL R 
FECB OCF 01 FB 00130 CALLS #1, ANLSOPEN_NEXT_RMS_FILE 
04 00135 RET : 
03 03A3 C6 91 00136 98 CMPB se RMS_FAB+31, #3 
0B 12 0013B BNEQ 
018B C6 95 BR 170 TSTB RMS_XABFHC+23 
05 12 00141 BNEQ 10 
018B C6 02 90 00143 MOVB #2, RMS MABENCSES 
50 018A (6 9A 00148 10$:  MOVZBL RMS_XABFHC+22, RO 
03 12 0014D BNEQ 118 
50 01 00 0014F MOVL #1, RO 
018A C6 50 9 B01 36 118: MOVB RO, RMS_XABFHC4+22 
0000" CF 017¢ C6 9E 0015 MOVAB RMS_XABFHC+8, ANLSGL_FAT 
0000v CF 00 FB 00155 CALLS #0, ANLSPROLOG_INFO 
| 63 66 80 0016 MOVW §RESULTANT_SPEC> (R3) 
04 B3 04 B6 66 28 00166 MOVC3 RESULTANT“SPEC, @RESULTANT_SPEC+4, @4(R3) 
| 50 01 DO 0016C MOVL #1, RO 
04 Ont gr RET 
50 D4 00170 128: CLRL RO 


a 
| 


<2 


Pee SH Se Se Se Se Ge He Se Ge GO Se Ge Se Ge Ge Ge Sse Se Se Se Se Se Se Be Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Be Se Se Se Se Se Se Se Se Se Se Be 
De Se Se Oe Oe Oe Be Oe Se BH Se Oe Be Se Fe Se SH oe SH He SH Fe Se FH Se SESH Fe Se SH we Se SH Se ae SH Oe SH ae SESH Se SH Se SHS Se Se SH Se Sees Se Se eseees 


z> Oe OOS 8S 6S Oe Oe FS HS FS FS Oe FS OS ES OG HS HS FS HS 6G FS OS HS FS FS OS FS HE HS HEHE TS TS FES FS FSFE FSFE STS SSCS SSE HS*S*S SHS HSS HS HSS *S 


a ——$————___— 


63351 


-32 v4.0- 
RMS INPUT. 


ore 


RET 


04 00172 


$CODE$ + 0000 


S 
L 
Routine Base: 


aoe been 
ANLSOPEN_ 
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Rsbttl *ANLSPROLOG_INFO = Set Up Global Information from Prolog’ 
Functional Description: ‘ . 
This routine is responsible for obtaining information from the 
rolog of a file and setting it up in global places. We do this 
ecause the information is used a lot all over the place. 


Formal Parameters: 
none 


i Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


' Side Effects: 


i 
i 
! 
i 
i] 
i 
i 
i 
1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: 
lee 
global routine anl$prolog_info: novalue = begin 
local 

p: bsd, 

pp: ref block(,byte); 
! We want to set up a global variable with the prolog version. If it's 
! a sequential file, the version is 1. Otherwise we have to get the 
! file's first prolog block. 
if .anl$gl_fatCfat$v_fileorg] eqlu fat$c_sequential then 

anl$gw_protog = 1 
else ( 

! Set up a BSD to read in the prolog of the file. Get it. 


init_bsd(p); 
p(bsd$w_size) = 1; 


anl$bucket (p,0);. 
! Put the prolog version in our global variable. 


pp = .plbsd$l_bufptr); 

anl$gw_prolog = .pp(plg$w_ver_no); 

! If this in a relative file, then the protos block contains the 
! end-of-file VBN. It should have been in the damn file header, 
! as it is for sequential files. Let's put it there. 


anl$gl_fat(fat$l_efblk] = .pp[plg$l_eof); 
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3 365 0868 anl$bucket(p,-1); 
(3 566 4 ); 
: 367 0870 
is 368 0871 return; 
36 6369 pare 
is 370 0875 1 end; 
| 
| 
003 60000 ENTRY ANLSPROLOG_INFO, Save R2,R3,R4,R5 : 0835 
5E ., BE 0002 SUBL2 P 3 
FOE s«&BF 0000° DF 93 00005 B1TB @ANLSGL_FAT, #240 3; 0846 
06 12 00008 BNEQ 1$ 3 
0000° CF 01 B60 0000D MOVW #1, ANL$GW_PROLOG ; 0847 
04 Bole RET 3 
18 00 6E e 2c Bo0t3 1$: MOVCS #0, (SP), #0, #24, P ; 0852 
02 AE 01 B0 00019 MOVW #1, P+2 ; 0853 
046 «AE 01 D0 0001D MOVL #1, P+ 3 0854 
7E 04 00021 LRL  —_ = (§P) > 0855 
04 AE 9F 00023 PUSHAB P 3 
0000v CF 02 FB 00026 CALLS #2, ANLS$BUCKET g 
51 OC AE 00 00028 MOVL  P+f2, + 0859 
0000" CF 74 Al BO 0002F MOVW 116(PP), ANL$GW_PROLOG : 0860 
50 0000° CF 00 00035 MOVL ANLSGL_FAT, ; 0866 
08 AO 70 =Al_ DO OOO3A MOVL 112¢PPT, 8(RO) : 
7E 01 CE O003F MNEGL » = (SP) ; 0868 
04 AE 9F 0004 PUSHAB P : 
0000v CF 02 FB 0004 CALLS #2, ANLSBUCKET ; 
04 0004A RET ; 0873 


; Routine Size: 75 bytes, Routine Base: $CODE$ + 0173 
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q oer Rsbttl *ANLSBUCKET = Handie Acquire & Release of Buckets’ 
74 087 i Functional Description: 

75 087 This routine is called to acquire and/or release buckets from 

7 087 the file — analyzed. It handles reading and caching of 

7 87 buckets when they are acquired, and freeing of buffers when 

3 88 they are released. 


paeweny suuenees pervernanas when the same bucket is acquired 


—OOONS VFS WN -"OVOONOuUsS 


| 3 1 
1 3 1 
13 1 
3 1! 

; 1! 
i 0 1! 
3 0 1! 
1s 0881 1! 

: 0882 1! 5 
E ; tH : } by multiple routines around the same time (as in /INTERACTIVE mode). 
1; 38 0885 71 i This routine also handles a special call, indicated by no 
13 oC tt : arguments, that causes us to flush the cache. 

: 386 0888 1 | Formal Parameters: ae 

3s 367 0889 1! Address of a BSD describing the buckets to be 

; 388 +93 iz , acquired and/or released. 

g oe 891 1! operation positive: If the BSD points to a bucket buffer, 

; 390 0892 1! it is to be released. Then the 

; 2 0893 1! bucket described by the BSD size/VBN 

; 39 0894 1! is to be acquired. The positive value 

s 93 0895 1! is the VBN of the parent of the new 

3; 394 0896 1! structure. 

s 395 0897 1! zero: Same as positive, except that there is 

. 2 0898 1! no parent or it is unknown. 

s se 0899 1! <1: If the BSD points to a bucket buffer, 

; 398 0900 1! it is to be released. No new bucket 

: ine 449: : } is acquired. 

: 401 0903 1! Implicit Inputs: 

. 288 849: : } global data 

> 404 0906 1 ! Implicit Outputs: 

: 405 4084 ' } global data 

: ret SotR : ; Returned Value: 

: 409 0911 1 
13 rb b3t¢ : Side Effects: 

> 412 0914 1 in. 

> 613 0915 1 

3 414 0916 1 ; 

: $2 sa tA § global routine anl$bucket(the_bsd,operation): novalue = begin 

: 417 0919 2 bind 

; +18 base 2 b = .the_bsd: bsd; 

> 420 092¢ : Literal 

3 $$) +4 ? 5 slot count = 32; 

3 own 

; 153 $998 2 high_siot: signed long initial(-1), 

> 424 0926 cached_size: vector(slot_count,byte], 

3; 425 0927 cached_vbn: vector{slot_count,long], 

: 426 0928 cached_bufptr: vector{slot_count,long] initial(rep slot count of long (0)), 
E rt an 44 § cached_refs: vector(slot_count,byte] initial(rep slot_count of byte (0)); 
| 
| 


_ RMSINPUT 
v04=000 
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0931 local 
09 § hye long, 


09 : Lon 

Bate § avellesles signed long, release: signed long, acquire: signed long; 
b332 § builtin 

0937 nul lparameter; 

0938 § 

0939 

0940 2! If we are called with no parameters, then we are to flush the cache. 
0941 2 ' This is done between files, in case a drastic structure error causes 
Bee ius to quit in the middle of an analysis. 

944 if nullparameter(1) then ( 

945 3 high_slot = -1; 

0946 5 return, 
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: Oops. The BSD references a buffer, but we didn't find it 
! in the cache. This is a logic error. 


0948 : To begin with, we have to locate three slots in the valid cached vectors: 
0949 ' available: The index of the first available slot. 
Baas : release: The index of the slot describing the buffer to be 
951 : released (if the BSD references a buffer). 
B326 : acquire: The index of the slot vot ote Li the buffer to be 
b3e7 : acquired (if thy new bucket is indeed cached). 
0955 available = release = acquire = -1; 
8328 incr i from 0 to .high_slot do ( 
0958 if .cached_refsC.iJ eglu 0 then 
0959 available = minu(.available,.i) 
0960 else 
0961 if .blbsd$l_bufptr] eqla .cached_bufptrl.i] then 
bees ; release = .i; 
0964 if .b{bsd$w_size] eglu .cached_sizel.i] and .b{bsd$l_vbn] eqlu .cached_vbnl.i] then 
0965 3 acquire = .i; 
0966 2); 
0967 2 
3444 2 ! Alright, now we may need to release a buffer. 
Baoe if .release neq -1 then ( 
344 ; ! We have a buffer to release. Decrement its reference count. 
bere ; decrement (cached_refsl.release)); 
0976 3 ! Clear the buffer pointer in the BSD as a positive statement 
bore ; ! that it no longer references a buffer. 
0979 3 bCbsd$l_bufptr] = 0; 
0980 3 
0981 2) else 
0982 2 if .bCbsd$l_bufptr] nega 0 then 
09835 2 
2 
2 
2 
2 


signal (anirms$_cacherelfail); 


ro i} 


a 
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! Now the caller may want us to acguire a new bucket. We allow buckets 
489 98 to be of size zero, which is useful when the BSD describes something 
i 


490 0990 that isn't actually within the virtual blocks of the file (e.g., the 
$33 444 file header). 
$3? oad if .operation neq -1 and .b{bsd$w_size] nequ 0 then ( 
495 0995 ! If the desired bucket is already cached, then we can just return 
4 0996 i @ reference to the extant buffer. We must increment the reference 
49 0997 i count to record this new reference. 
498 0998 
499 0999 if .acquire neq -1 then 
00 1000 bCbsd$l prA.. §- -cached_bufptrC.acquire); 
01 01 increment (cached_ refsC.acquire)); 


) else ( 


! We know the desired bucket must be read. Use the first 
! unused slot if any; otherwise use the available slot found 
! above. If we have run out of slots, that's trouble. 


if .high_slot iss slot_count-1 then 
' available = increment (high. slot) 
else 
if .available egl -1 th 
signal anirms$. cacheful L); 


! If the slot we are going to use for this new bucket still 
! describes an old buffer, free up the buffer. 


if .cached -bufptrl available) noge 0 then ( 
status = Lib$free_vm(%ref(.cached_sizel.available]*512), 
cached “bufptrl.availab le); 
check (.status, .Status); 


' Allocate a buffer for the bucket and read it in. 
! We force reads of VBN 0 to fail rather than read the next 
! stupid block, 


status = Lib$get_ vattreft. bCbsd$w_size]*512) ,rms_rabCrab$l_ubf]); 
check (.status, sgtatu 


PPV PPV PPV PPV PUPP PSV STS TTT TTT TT TT TIT 
WAAR POPIPOPONNPOPOPONY 2 4 SS SS BOO OC OCOCOCO 
WR $C OBNOAUSWN “OO OCDVNOAUS WN —ODOODNOUSW 
a a a ea a ed at od = 8 2 = td od ot = = = = 3 I 
folelelelololololelo lol olelololelololelelelelelol~lololol=) 
MIPITPONIPINIMENINNY 2 2 SS SS BOO CO OCCOO 
PWN OOO NOU EWR 0 OONOAU FWD OOO NAME WN SH OOONOUEWWI 
eee ae oe oe oe ot ot oe tal al at ot ot oe ot at at et ek dh et tt et et et ha et et ot to ee 


03 rms_rabCrab$w_usz2] = “Bibete- stag3e512; 
° rms_rabLrab$l =bkt) bsd$l 
Os status = (if -bCbsd6l. 3ho4 "he 0 then 
34 03 else 
HH y $read(rab=rms_rab)); 
37 03 ! If the read failed, we have to generate and error message 
38 03 ' and treat it as a drastic structure error. A read fails 
39 03 ! if the status is bad, or if it didn’t read in the number 
40 04 ' of blocks we ashes for. If we know the parent VBN, it is 
7 a ! included in the message. 
23 04 if not .status or (.rms as cet r$2)+511)/512 nequ .b(bsd$w gize3 then ( 
44 04 Lib$free_ vm (Sre¥(. bl bsd$w7size]*512) rms _rablrab$l _ubT)); 
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ls $65 1045" if .operation neq 0 then ; 
3 “4 1378 ‘ anl$format_error(anlrms$_badreadpar, .operation, .b{bsd$l_vbnJ) 
; els 
13 348 1048 : anl$format_error(anirms$_badreadnopar, .b{bsd$l_vbn]); 
ls 208 1049 5 signal (anlirms$_unwind); 
?:,. 1050 4 ); 
ls $53 1991 4 

3 226 1 26 4 ! Now we can fill in the cached vectors with a description of 
: 2 10535 4 ! the bucket we just read. 

+ 554 1054 4 : ; 

3 399 1055 4 cached_sizeC.available] = -b(bsd$w_sizel; 

; 32 1056 4 cached_vbnl.ayailable) = -bCbsd$l_-vbnJ; 

s Dor 1057 4 cached_bufptrl.available] = .rms_rabCrab$l_ubf]; 

; e28 1938 r cached_refsl.available] = 1; 

3 566 H+ : ! Finally, reference the buffer in the BSD. 

; 562 1068 4 blbsd$l_bufptr] = .rms_rabCrab$l_ubf]; 

> 563 1063 3 ); 

> 564 1064 ; 

> 565 1065 ! As a friendly pesture. set the end pointer in the BSD to point 

3 208 bs 3 ' at the byte following the buffer. 

3 368 1068 : bCbsd$l_endptr] = .bCbsd$l_bufptr] + .b{bsd$w_size)*512; 

; 569 1069 2); 

3 370 1070 2 

; or 1071 2 return; 

; 372 1072 2 

; «573 1073 1 end; 


-PSECT SOWNS,NOEXE,2 
FFFFFFFF 00528 HIGH_SLOT: 


»LON -1 3 
0052C CACHED_SIZE: 
-BLK 32 
0054C CACHED_VBN: 
-BLK 128 
000000004 OOSCC CACHED_BUFPTR: 
-LONG  0(32] 3 
00# 0064C CACHED_REFS: 
-BYTE 032) g 


-EXTRN SYSSREAD 
-PSECT $CODES,NOWRT,2 


OFFC 00000 ENTRY i SOUCRET Save R2,R3,R4,R5,R6,R7,RB.R9,- =; 0917 
5B 000000006 00 9€ 90002 MOVAB LIB$FREE_VM, R11 : 
5A 000000006 00 9€ 0000 MOVAB LIBSSIGNAL, R10 ; 
59 0000° cf 9E 00010 MOV HIGH SLOT, R9 : 
SE 4 C2 00015 SUBL2 #4 : 
54 04 AC 00 00018 MOVL THE BSD, R4 + 0920 
6c 9 001C TSTB (APT : 0944 


an 


Ba Be Be Os Os Be Oe Os Os Be BeBe Be Ge Ge Se Ge Se Se Se Se Se SH Se Se Ge Se Ge Ge Se Ge Se Se Oe Se SF Oe Be Se BeBe Se ee Se Se Se Se ae Se Se ee Se Se Seas 
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RMSINPUT RMSINPUT = Handle RMS File Input 16=Sep-1984 00:04:19 AX=-11 Bliss-32 V4.0-74 P 
| . 
~V04-000 ANLSBUCKET = Handle Acquire g Release of Bucket 12-88-1384 1 Hy LANALYZ SRC TRMSINPUT 83 31 - (38 
05 13 0001 BEQL 1$ : 
046 ac 3 00 TSTL 4 (AP) : 
| 04 12 000 BNEQ = 2$ : 
69 01 cf 0025 1$ MNEGL #1, HIGH_SLOT 3 0945 
4 00028 RET 3 0944 
53 91 CE 00029 2$ MNEGL #1, ACQUIRE : 0955 
51 1 CE 0002C MNEGL #1, RELEASE ; 
2 01 CE 900 £ MNEGL #1, AVAILABLE 5 
5 4 CE 000 ¢ MNEGL “#1, I 3: 0956 
9 11 000 BRA 7$ : 
| 0124 C940 95 00037 38 TSTB © CACHED_REFSC1] : 0958 
1 13 900 3¢ BNEQ $ 3 
55 52 DO 0003E MOVL AVAILABLE, RS 3 0959 
50 55 D1 00041 CMPL R5, | ; 
c 03 1B 00044 BLEQU 3 
55 50 DO 00046 MOVL 1, R5 : 
52 55 D0 00049 4$ MOVL 5, AVAILABLE ; 
0c 11 0004C BRB 6 3 
| OOA4 6940 Oc AG OI 00045 5$ CMPL 12(R4), CACHED_BUFPTREIJ 3 0961 
03 12 0005 BNEQ = 6$ ; 
51 50 00 BoRee MOVL I, REL 3; 0962 
55 04 A940 9A O005A 6$ MOVZBL CACHED SIZECIJ, RS 7 0964 
02 AG 55 Bi 0005F CMPW R5, 2 : 
0B 12 00063 BNEQ 7$ 3 
24 A940 04 A& D1 00065 CMPL 4(R4), CACHED_VBNCI) 3 
03 12 00068 BNEQ 7$ 3 
53 50 pO 00060 MOVL I, ACQUIRE 3 0965 
3 50 69 F3 00070 7$: AOBLEQ HIGH SLOT, I, 3$ : 0956 
FFFFFFFFE 8©68F 51 D1 00074 CMPL RELEASE, #-1 ; 0970 
OD 13 00078 BEQL 28 3 
0124 €941 97 0007D DECB CACHED_REF SCRELEASE) 3 0974 
57 0c AG OC 90082 MOVAB 12(R4)7 R7 3 0979 
67 D4 00086 CLRL (R7) ; 
11 11 00088 BRB 9$ 3 0970 
57 0c A& YE OO0BA 8S: MOVAB 12(R4), R7 : 0982 
67 d 0008E TSTL (R7) : 
09 13 00090 BEQL 9$ 3 
00000000G 8F DD 00092 PUSHL #ANLRMS$_CACHERELFAIL : 0987 
6 01 FB 00098 CALLS #1, LIBSSIGNAL ; 
FFFFFFFF 86 8F 08 AC D1 0009B 9$: CMPL OPERATION, #1 : 0993 
03 13 OO0A BEQL 10$ : 
02 A& B5 000A5 TSTW 2(R4) : 
01 12 OOOA8 108: BNEQ 11$ ; 
04 OQOOAA RET 3 
FFFFFFFRF 8©68F 53 D1 OOOAB 118: CMPL ACQUIRE, #-1 ; 0999 
OE 13 00082 BEQL 12$ 3 
67 00A4 €943 DO 00084 MOVL CACHED_BUFPTRCACQUIREJ, (R7) ; 1000 
0124 (943 96 OOOBA INCB CACHED-REF SCACQUIRE J) : 1001 
0103 31 O0O00BF BRW 23$ 3; 0999 
1F 69 D1 000C2 128: CMPL HIGH_SLOT, #31 ; 1009 
bs 18 000C GEQ 13$ 3 
50 69 1 C1 000C ADDL3) #1, HIGH_SLOT, RO ; 1010 
69 50 8 00CB OVL RO, HIGH™SLOT : 
52 50 DO OOOCE MOVL RO, AVAICABLE 3 
12 11 00001 BRB 14§ F 
FFFFFFFFE 8686 52 D1 000D3 13%: CMPL AVAILABLE, #1 ; 1012 
09 12 OOODA BNEQ 14$ 3 
| 
| 
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RMSINPUT RMSINPUT = Handle RMS File Input 1b-Se -1984 00:04:19 AX=-11 Bliss-32 V4.0-74 Page 27 
-v04=-000 ANLSBUCKET = Handle Acquire @ Release of Bucket 107300 - 1982 EEL LANALYZ-SRe RMS INPUT .B32;1 ’ 3 
| 000000006 8F pp 9090 PUSHL  #ANLRMS$_CACHEFULL + 1013 
| 6A 1 FB OOOE CALLS #1, L 1GNAL : 
58 OOAS C942 DE OOOES 148 MOVAL CACHED BUF PTR AVAILABLE], R8 + 1018 
68 D5 OO00EB TSTL (RB) : 
1D 13 OOOED BEQL ©: 15$ : 
28 DD OOOEF SHL + 1020 
50 04 A942 9A OOF) MOVZBL CACHED_SIZECAVAILABLEJ, RO + 1019 
04 AE 50 09 78 000F6 HL RO; 4(SP) : 
04 AE 9F OOOFB PUSHAB 4(§P) : 
6B 02 FB OOOFE CALLS #2, LIBSFREE_VM : 1020 
55 50 DO 00101 MOVL RO, STATUS : 
05 55 «EB 90194 BLBS STATUS, 15$ + 1021 
55 pd 00107 PUSHL STATUS : 
6A 01 FB 00109 CALLS #1, LIBSSIGNAL : 
FEDO C9 OF 0010C 158 PUSHAB RMS_RAB+36 : 1028 
56 02 Ad 3C 09110 MOVZWL 2(RZ), RO ; 
56 56 09 78 00114 HL 9, Rb, R6 : 
04 AE 56 DO 00118 VL —s_ RO, 4 CSP) : 
04 AE 9F 0011C PUSHAB 4(§P) : 
000000006 00 02 FB OO11F CALLS #2, LIBSGET_VM : 
55 50 DO 00126 MOVL RO, STATUS : 
05 55 «EB 00129 BLBS STATUS, 16$ + 1029 
55 DD 0012C PUSHL STATUS : 
6A 01 FB 001¢e CALLS #1, LIBSSIGNA : 
FECC §36C9 56 B0 00131 16$: MOVW R6. RMS RAB+3 + 1030 
53 04 Ad DO 00136 MOVL 4(R4), + 1031 
FEES C9 53 DO 0013A MOVL 3, RMS_RAB+56 ; 
04 12 0013F BNEQ 7$ : 1032 
55 D4 00141 CLRL = STATUS : 
OE 11 00143 BRB 18$ ; 
FEAC C9 9F 00145 178 PUSHAB RMS_RAB > 1035 
000000006 00 01 FB 00149 CALLS #1, SYSSREAD : 
55 50 pO 00150 MOVL 0; STATUS ; 
19 55 E9 00153 18$: BLBC STATUS, 19$ + 1043 
50 FECE C9 3C 00156 MOVZWL RMS_RAB+34, RO F 
50 O1FF CO 9E 00158 OVAB. 511TRO), RO ; 
50 00000200 8F C6 00160 DIVL2 #512, R ; 
50 02 Ad 10 00 ED 00167 CMPZ2V #0, #16, 2(R4), RO : 
38 13 0016D BEQL 22$ ; 
FEDO C9 OF OO16F 19$:  PUSHAB RMS_RAB+36 + 1044 
04 AE 56 D0 00173 MOVL 6, 4(SP) : 
04 AE 9F 00177 PUSHAB 4(5P) ; 
68 02 FB OO17A CALLS #2, LIBSFREE_VM : 
08 AC D 00170 TSTL QPERATION > 1045 
12 13 00180 BEQL $ ; 
53 DD 00182 PUSHL R + 1046 
08 AC DD 00184 PUSHL OPERATION : 
000000006 BF DD 00187 PUSHL §#ANLRMS$ BADREADPAR F 
| 00006 CF 3 FB 0018D CALLS #3, ANLSFORMAT_ERROR ; 
op 11 0198 BRB 21§ ; 
DD 00194 208 PUSHL R3 > 1048 
000000006 BF DD 00196 PUSHL #ANLRMS$_BADREADNOPAR : 
0000G CF 02 FB 0019C CALLS #2, ANLSFORMAT_ERROR 3 
| 000000006 fi DD OO1A1 218: PUSHL #ANLRMS$_UNWIND : 1049 
6 1 FB O1A7 CALLS #1, LIBSSIGNAL 3 
04 A94 02 Ad 90 OO1AA 228 MOVE 2¢R4), CACHED SIZECAVAIL ABLE] ; 1055 
24 A94 53 D0 00180 MOVL 3, CACHED_VBRCAVAILABLE]J ; 1056 
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RMSINPUT = Handle RMS File Inpu 1b-3¢ = 9 AX-11 Bliss-32 V4.0-7 Page 28 
ANLSBUCKET = Handle Acquire P Giccse of Bucket 1 a 1382 99: 94: 03 ANALYZ.SRC RASINPUT .849; 37 . (88 
6 FEDO ‘9 0 00185 MOVL ans -RAB+36, (RB) : 1057 
0124 C94 1 0 at MOVB “CACHED San 4 ames ; 1058 
6 FEDO §=¢9 pO 001C0 MOVL ani RAB +36 (R?) + 1062 
50 02 A& 3C O01CS 238 MOVZWL RO 3; 1068 
50 50 09 78 001C9 ASHL 5s. 7 RO : 
10 AG 50 67 1 001CD ADDL3 (RP R RO, 16(R4) : 
04 00102 RET 3: 1073 


467 bytes, Routine Base: $CODE$ + 01BE 
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v04-000 ANLSFORMAT_FILE_HEADER = Spine Nice File Header 14-Sep-19 4 SBSH TY LANALYZ-SRe RMS INPUT .B32;1 . 18) 
: a7) ore : Rsbttl *ANLSFORMAT_FILE_HEADER = Print Nice File Header’ 

; 577 1076 1 i Functional Description: 

: 578 1077 1! This routine is called to print a nicely formatted file header. 
; 379 1078 1! This does NOT include the information in the user file attribute 
; 580 ery 3 3 area. We assume that the file header is valid, since it's 

: a3! 1999 : ANALYZE/DISK_STRUCTURE'S business to verify it. 

: 388 108@ Formal Parameters: 

: : n 

3: 38> 1084 1! 

; 586 1085 1! Implicit prputs: 

Pe ae te eat ee 

; 589 1088 1} Implicit Outputs: 

: een hs : global data 

; 236 94 ' : Returned Value: 

é : non 

> 594 1998 1! 

: aoe Re \ Side Effects: 

: 597 1096 1 i-- 

; 598 1097 1 
; 3 1098 1 
3 on 19% § global routine anl$format_file_header: novalue = begin 
; 602 1101 2 bind 
3; 603 1102 2 null= uplit byte(Zascic *"), 

: eRe A1ee § none= uplit byte(%ascic * none’); 

; 606 1105 2 local 
3; 607 1106 § ai,bi,at,ru,only_ru,never_ru: word, 

; 608 1107 bi_comma,at_comma,ru_comma,only_ru_comma,never_ru_comma:word, 

: rst 1198 2 flag:byte; 

; et) a1t9 5 ! Start by putting out a Little heading Line. 
> 613 ii6 5 anl$format_line(3,0,anirms$_filehdr); 

: 616 1113 3 anl$format~skip(0); 

; oi¢ ee § ! We will begin with the complete file specification. 

: 618 ite anl$format_line(0,1,anirms$_filespec,resultant_spec); 

: 630 1133 ! Now we include the file ID. 

; oc 118) anl$format_line(0,1,anlrms$_fileid,.rms_nam[nam$w_fid_num],.rms_nam{(nam$w_fid_seq],.rms_nam(nam$w_fid_rvn]); 
; 634 Hi ! Now the owner UIC. 

; 666 i 2 anl$format_line(0,1,anlrms$_owneruic,.rms_xabprolxab$w_grp],.rms_xabprolxab$w_mbm)) ; 
; 668 i : ! Now the file protection mask. 
F 680 af , anl\$format_protection_mask(1,anlrms$_prot,.rms_xabprolxab$w_pro]); 


eee —————_—_— ee _ _ _ ns  .-.:.—. _ eee 
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| RMSINPUT RMSINPUT = Handle RMS File Input 16-Sep-1984 99: 4:19 Pa Bliss-32 V4.0-74 Page 30 Gai 
| ¥04=000 ANLSFORMAT_FILE_HEADER = Print Nice File Header 14-Sep-1984 11:53:01 ANALYZ.SRCIJRMSINPUT.B32;1 (10) 
|s 6 ¢ 113) : Now the creation, revision, expiration, and backup dates. We also include | 
a : ? 1} ¢ ! the revision number. Some dates might not be present. 

E 635 1134 anl$format_line(0,1,anlrms$_creation,rms_xabdat{xab$q_cdt]); 

; 636 1135 anl$format_ Line(0,1.anlrms$_revision,rms_xabdat(xab$q_rdt],.rms_xabdat(xab$w_rvn]); 
is 637 1136 if .rms_xaBdatCxab$l_edt0] éqlu 0 and .ris_xabdat(xabSl_edt4] eglu 0 then 
13 $38 1 { : anl$format_line(0,1,anlrms$_noexpiration) 

; else 
I; 640 1139 ; anl$format Line(0,1,anlrms$_expiration,rms_xabdat(xab$q_edt]); | 
a 641 1140 2 if .rms_xabdat(xabSl_bdt0J eqlu 0 and .rms_xabdatlxab$l_bdt4] eqlu 0 then | 
(3 oe ies 2 pak anl$format_line(0,1,anlrms$_nobackup) 

Gy ore 1148 anl$format_line(0,1,anlrms$_backup,rms_xabdatCxab$q_bdt]); 
: ers Hd ! Now the contiguity options, performance options, and reliability options. 
; 648 1147 g selectoneu true of set : > ‘ 

; ret 1128 § C.rms_fabCfab$v_cbtJ]: anl$format_line(0,1,anlrms$_contig,uplit byte(%ascic ‘contiguous-best-try")); 

: 63} 1129 § C.rms_fab(fab$v_ctg]]: anl$format_iine(0,1,anlrms$_contig,uplit byte(%ascic ‘contiguous’)); 

: 653 1152 2 Cotherwise): anl$format_line(0,1,anlrms$_contig,uplit byte(%ascic 'none')); 

; 654 1153 2 tes; 

; 655 1154 2 

; 656 1155 2 if .rms_fablfab$v_dfw] then ; : 

3 eet 1128 § : anl$format_Line(0,1,anlrms$_perform,uplit byte(%ascic ‘deferrea-write')) 

; else 

3 344 1136 3 anl$format_line(0,1,anlrms$_perform,uplit byte(%ascic ‘none')); 

: 661 1160 2 if .rms_fabCfab$v_rck] then 

3; 662 1161 2 if .rms_fablfab$v_wek] then ; : ; ; 

; 7 1166 § : anl$format_line(0,1,anlrms$_reliab,uplit byte(%ascic ‘read-check, write-check")) 

Py e.se 

3; 665 1164 2 anl$format_line(0,1,anlrms$_reliab,uplit byte(%ascic ‘read-check')) 

; 666 1165 2 else 

; 667 1166 2 if .rms_fabCfab$v_wek] then ‘ ; : 

; 668 1167 2 anl$format_line(0,1,anlrms$_reliab,uplit byte(%ascic ‘write-check')) 

; 669 1168 2 else y ’ . 

3 67 119% § anl$format_line(0,1,anlrms$_reliab,uplit byte(%ascic ‘none')); 

: O76 ato) § ! Now display the journaling option bits and journaling file names 

: 67% 193 3 

; 675 1174 § if “aes io ll naeey Jon: eqlu 0 then 

; 676 1175 anl$format_line(0,1,anlrms$_jnl,none,null,null,null,null,null, 

> 677 1126 null,null,nall,null,mull) 

: 678 117 else begin é 

3; 679 1178 ai=bizat=ru=only_ru=never_ru= uplit byte(Zascic ''); : ; | 

g os? 4 bi_comma=at_comma=ru_comma=only_ru_comma=never_ru_comma= uplit byte(%ascic ''); | 

; 682 1181 4 if .rms_xabjnlCxab$v_ai] then begin 

: 683 1182 4 ai= uplit byte(Zascic ' Al"); 

; 684 11835 4 flag=1; 

; 685 1184 ; end; 

3; 686 1185 . : ; 

; 687 1186 4 if .rms_xabjnlCxab$v_bi] then begin 

: 688 1187 4 bi="uplit byte(Zascic ‘ BI"); 

} 

| 

| 

| 
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INPUT = Handle RMS File Inpu 16-Sep 9° 138% 90:04:19 Ax-11 8 
SFORMAT_FILE_HEADER = Print. Nice File Header 14-Sep-1984 11:53:01 ANALYZ$ 
bi_comma= it gtheg then 
uplit byte(Zascic ',") 
€ 
uplit byte(%ascic '')); 
flag=1; 
end; 


if .rms_xabjniCxab$v_ aty 7 1359'" 
at= uplit byte(Sasci C 
at_comma= (if .fla a9 th a, 
uplit byte(Zascic ',") 


se 

uplit byte(%ascic '')); 
flag=1; 
end; 


if .rms anep int seer. ru] then begin 
ru= uplit byteCSiscic * RU 
ru_comma= (if . then 
uplit bose Zascic °,') 


se 
uplit byte(Zascic '')); 
end; 


if .rms_xabjnlCxab$v conty. ru} then basin 
only_ru= uplit byte(s rests ONLY_RU' 
only_ru_ org (if .flag then 
e epcethnas te gts 


abe: byte(Zascic '")); 


U'); 


end; 


if .rms_xabjniCxab$v_never_ru] then begin 
never_ru= uplit Byte(%ascic * NEVE 
never_ru_comma= (if .flag then 
uplit byte(Z%ascic ',') 


e 
uplit byte(%ascic ‘')); 
end; 


PIMPIN 3 3 OS SS S| “DOOD OCOOOCOCOCOOOOOOOOOOMO ruv 


PWR @OOONA UE WN $0 OONOA VE WIN SO OD NAW EWN 0 ODNAU EWN SC ODNOU EWI OOO 


anl$format_lLine(0,1,anlrms$_jnl,.ai,.bi_comma,.bi,.at_comma,.at, 
-fu_comma,.fu,.never_ru comma,.never_fu, 
.onTy_ru_comma,.only_ru); 


end; 


if .rms_xabjniCxab$b_ail) neq 0 then 
“anl$format_line(0,1 | Pa _aijnl,.rms_xabjnlCxab$B_aiS], 
.rms_xabjnTLxab$l_aial 


.rms_ aoe oltradtp, bil neq 0 then ; } 
format. line( Paalems 8S bi jnt,.rms_xabjntCxab$B_biS), 

a _xabjnTCxab$l_ *bial): 
if .rms_xabjnlCxab$b_atl] neq 0 
“anl$format_line( aii 


_ 
orms_xabjnU(xab$l_ata 


ms _atjnl,.rms_xabjntCxab$B_atS), 


me me ee ee ee ed ed od od od od od = = = .- § d > 
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v04-000 


73 «65 


rh 
77 


Nu Oo 
nm uw 


62 


69 
20 


RMSINPUT = Handle RMS File Inp 


ANLSFORMAT_FILE_HEADER = Print “Nice File Header 


return; 


1245 
1246 
1247 
1248 1 end; 


65 6E 6F 

73 75 6F 75 67 69 f § 
73 75 6F 75 67 69 74 6€ 
65 6€ 

77 20 64 65 72 72 65 66 
65 6€ 

68 63 65 68 63 2D 64 61 
68 63 65 68 63 2D 

68 63 65 68 63 2D 64 61 
63 65 68 63 2D 65 74 69 
65 6€ 

49 

49 

54 

55 


55 52 SF 59 4C 4E 


55 52 SF 52 45 56 45 


5E 
; 000000006 


0000G CF 
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1 ANALYZ.SRCIJRMSINPUT.B32;1 
SPLITS,NOWRT,NOEXE,2 
<Q> 
<5>\ none\ 
<19>\contiguous-best-try\ 
<10>\contiguous\ 
<4>\none\ 
<14>\deferred-write\ 
<4>\none\ 


<23>\read-check, write-check\ 


<10>\read-check\ 
<11>\write-check\ 
<4>\none\ 


<0> 
<8>\ ONLY_RU\ 
<1>\,\ 
<0> 

<9>\ NEVER_RU\ 


<1>\,\ 
<0> 


P.AAE 
P.AAF 


SCODES,NOWRT ,2 


Aa Seon Fate HEADER, Save R2,R5,R4,R5,- 


R7 RB, »RO,RI0-R11 
Pais, FILENOR 
#3, ANLSFORMAT_LINE 


ANL SFORMAT _SKIP 
Regu y T SPEC” 
PANCRMSS. FILESPEC 
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RMSINPUT RMSINPUT = Handle RMS File Input 1hede -1984 00:04:19 AX-11 Bliss=-32 V4.0-74 P 
YOL-000 ANLSFORMAT_FILE_HEADER = §, {ne Nice File Header 12-8 08- 1 ope 09:08 :h} ANALY SREIRASINEUY 03 31 age 433 
eo A : 
| 00006 cr 04 FB $09 8 CALLS #4, ANLSFORMAT_LINE : 
E 9000" CF 00 D MOVZWL RMS_NAM+40, (SP) ¢ 1121 
7E 000' CF %3C¢ 000 ; MOVZWL RMS NAM 3 » =(SP) : 
7E 0000' cr C 000 MOVZWL RMS~NAM+36, <(SP) : 
000000006 8F dD 000 § USHL #ANCRMS$_FILEID ; 
| Qi DD 0004 PUSHL : 
E D4 00044 CLRL. = = (SP) : 
| 00006 CF 06 FB 00046 CALLS #6, ANLSFORMAT_LINE : 
7E 0000' CF 3¢ 00048 MOVZ2WL RMS_XABPRO+12,~-(SP) + 1125 
7E 9000" CF 3¢ 90050 MOVZWL RMS-XABPRO+14, =(SP) : 
000000006 8F dD 0005 PUSHL #ANCRMS$_OWNERUIC : 
01 DD 00058 PUSHL #1 : 
7E D4 0005p CLRL.  =(SP) : 
00006 CF 05 FB 0005F CALLS #5, ANLSFORMAT_LINE : 
7E 0000' cf 3C 00064 MOVZWL RMS _XABPRO+B, =(SP) + 1129 
000000006 8F dD 00069 PUSHL #ANCRMSS_PROT : 
01 DD 0006 PUSHL #1 : 
00006 CF 03 FB 900 1 CALLS #3, ANLS$FORMAT_PROTECTION_MASK : 
0000' CF 9F 00076 PUSHAB RMS_XABDAT+20 + 1134 
000000006 6 DD 0007A PUSHL #ANCRMS$_CREATION : 
1 DD 00080 PUSHL #1 : 
7E D4 00082 CLRL.  =(SP) : 
00006 CF 04 FB 00084 CALLS #4, ANLS$FORMAT_LINE F 
7E 0000" CF 3C 00089 MOVZ2WL RMS_XABDAT+8, =(SP) + 1135 
0000" CF 9F OO0BE PUSHAB RMS~XABDAT+1 : 
000000006 8F DD 00092 PUSHL #ANCRMS$_REVISION : 
01 DD 00098 PUSHL #1 ; 
7E D4 0009A CLRL. =(SP) : 
00006 CF 05 FB 0009C CALLS #5, ANLSFORMAT_LINE ; 
0000" CF D5 O00A1 TSTL §RMS_XABDAT+28 : 1136 
17 12 O00AS BNEQ : 
0000" CF 05 000A7 TSTL | RMS_XABDAT+32 : 
11 12 OOOAB BNEQ ‘1 : 
000000006 8F DD OO0AD PUSHL #ANLRMS$_NOEXPIRATION : 1137 
01 DD 00083 PUSHL #1 F 
7E D4 00085 CLRL. = (SP) : 
00006 CF 03 FB 00087 CALLS #3, ANLSFORMAT_LINE ; 
13 11 000BC BRB $ : 
0000' CF OF 00085 1$ PUSHAB RMS_XABDAT+28 : 1139 
000000006 8F DD 000C USHL #ANCRMS$_EXPIRATION ; 
1 DD 000C8 PUSHL #1 ; 
E D4 SO0CA CLRL. = (SP) : 
00006 CF 04 FB O0CC CALLS #4, ANLSFORMAT_LINE ; 
0000" CF D 90001 2$: TSTL | RMS_XABDAT#+36 ~ ; 1140 
17 Ne 0005 BNEQ F 
0000" CF 05 00007 TSTL | RMS_XABDAT+40 ; 
11 12 000DB BNEO ; 
000000006 8F DD 000D PUSHL #ANLRMS$_NOBACKUP > 1141 
1 DD OO0E PUSHL #1 : 
D4 O0¢ CLRL. = = (SP) ; 
00006 CF 03 FB O00E7 CALLS #3, ANLSFORMAT_LINE : 
13 11 OOOEC BRB 4 ; 
000' CF OF OOOEE 3$: PUSHAB RMS_XABDAT+36 : 1143 
00000000G 8F DD ODF PUSHL #ANCRMS$_BACKUP : 
1 DD 000F PUSHL #1 ; 
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RMS INPUT RMSINPUT = Handle RMS File Input 16-Sep-1984 04:19 AX-11 Bliss-32 V4.0-74 Page 34 
v04-000 ANLSFORMAT_FILE_HEADER = Brine Nice File Header 1228887138 eset LANALYZSRCIRMS INPUT .B3 1 9°40) 
7E D4 OOOFA CLRL = = (SP) ; 
00006 CF bg FB OOOFC CALLS #4, ANLSEORMAT | INE : 
06 0000" CF 5 a 101 4$: BBC #5, RMS_FAB+6, ~5$ + 1148 
0000" CF 9F 00107 PUSHAB P,AAG : 
10 11 0108 BRB 7$ : 
06 0000" CF 04 eI 010D 5$: BBC #4, RMS_FAB+6, 6$ + 1150 
0000" CF 9F 0011 PUSHAB P.AAH : 
04 11 0011 B 3 
0000' cf oF 00119 6$: PUSHAB P.AAL > 1152 
000090006 8F DD O10 7$: PUSHL #ANLRMS$_CONTIG : 
Qi DD 001 PUSHL #1 : 
—E D4 001 5 CLRL. = = (SP) : 
00006 CF 04 FB 00127 CALLS #4, ANLSFORMAT_LINE : 
06 0000° CF 05 £1 0012C BBC #5, RMS_FAB+4,~8$ : 1155 
0000" CF 9F 00132 PUSHAB P.AAJ > 1156 
04 11 00136 BRB : 
0000' CF 9F 00138 8$: PUSHAB P.AAK + 1158 
000000006 8F DD 0013C 98: PUSHL  #ANLRMS$_PERFORM : 
01 DD 00142 PUSHL #1 ; 
7E D4 00144 CLRL. |‘ =(SP) : 
00006 CF 04 FB 00146 CALLS #4, ANLSFORMAT_LINE : 
0000" CF 95 00148 TSTB. = RMS_FAB+6 + 1160 
12 18 0014F BGEQ 118 : 
06 0000" CF 01 a 00151 BBC #1, RMS_FAB+S, 10$ + 1161 
0000" CF 9F 00157 PUSHAB P.AAL + 1162 
16 11 00158 BRB 13$ : 
0000" CF 9F 0015D 10$: | PUSHAB P.AAM + 1164 
10 11 00161 BRB 13$ : 
06 0000° CF 01 €1 00163 11$: BBC #1, RMS_FAB+S, 12$ > 1166 
0000" CF 9F 00169 PUSHAB P_AAN : 1167 
04 11 0016D B 13$ : 
0000" CF 9F O016F 128: PUSHAB P.AAO > 1169 
000000006 8F DD 00173 138:  PUSHL M#ANLRMS$_RELIAB : 
01 DD 00179 PUSHL #1 ; 
7E D4 0017B CLRL. = (SP) : 
00006 CF 04 FB 0017) CALLS #4, ANLSFORMAT_LINE : 
0000" CcF BS 00182 TSTW © RMS_XABUNL+8 : 1174 
2F 12 00186 NEQ 148 ; 
0000" CF 9F 00188 PUSHAB NULL > 1175 
0000" CF 9F 0018C PUSHAB NULL : 
0000" CF 9F 00190 PUSHAB NULL ; 
0000' CF 9F 00194 SHAB NULL ; 
0000' CF 9F 00198 PUSHAB NULL ; 
9000" CF OF 0019C PUSHAB NULL ; 
000' CF 9F OO1A0 PUSHAB NULL ; 
0000" CF 9F OO1A4 PUSHAB NULL ; 
0000° CF i O1A8 PUSHAB NULL ; 
0000' CF 9F OO1AC PUSHAB NULL ; 
0000" CF 9F 001B0 PUSHAB NONE ; 
OODE 31 00184 BRW 29$ ; 
50 0000" cf 9 001B7 148:  MOVAB. P.AAP, RO : 1178 
56 0 B0 001BC MOVW RO, NEVER_RU : 
57 50 D6 O1BF MOVL RO, ONLY_RU ; 
38 50 D dice MOVL RO, RU ; 
9 50 06 O1C MOVL RO. AT ; 
5A 20 D0 001C8 MOVL RO. BI : 
58 0 DO 001CB MOVL RO. Al ; 


<z 
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RMS INPUT RMSINPUT = Handle RMS File Input 16-Sep-1984 00:04:19 AX-11 Bliss-32 V4.0-74 Page 35 
v04-000 ANLSFORMAT_FILE_HEADER = Spine Nice File Header 107 308- 1384 99: 3:01 LANALYZ.SRCIRMS INPUT .83 31 (10) 
50 0000" CF 9 Oe MOVAB P.AAQ, RO : 1179 
5 0 BO 001D MOVW RO, NEVER_RU_COMMA : 
51 0 BY 3108 MOVL RO, ONLY_RuU_COMMA . 
2¢ 50 DO 0010 MOVL RO, RU_COMMA : 
5 50 DO b010¢ MOVL RO, AT-COMMA : 
54 50 DO 001DF MOVL RO. BI COMMA : 
08 0000" CF 03 a O12 BBC #3, RMS_XABUJNL+8, 15$ : 1181 
58 0000" CF : O1E MOVAB P.AAR, Al t 1182 
50 1 90 OO1ED MOVB #1, FLAG + 1183 
17 0000" CF 2 €1 001F0 15$: BBC #2, RMS XABJNL+8, 18$ + 1186 
SA 0000' cf 9E 001F6 MOVAB P.AAS, + 1187 
07 0 £9 O1FB BLBC FLAG, 16$ > 1188 
4 0000' cr Ore NOVAB P.AAT, BI_COMMA ; 1189 
54 0000' CF 9E 00205 16$:  MOVAB  P.AAU, BI_COMMA + 1191 
50 01 90 002A 17$: MOVB #i, + 1192 
17 0000" CF 04 £1 00200 18$: BBC #4, RMS _XABJNL+8, 21$ > 1195 
59 0000" CF SE 00213 MOVAB P.AAV, AT + 1196 
07 50 9 00218 BLBC FLAG, 19$ > 1197 
53 0000' cf 4 00¢18 MOVAB P.AAW, AT_COMMA ; 1198 
53 0000' CF 9E 00222 19$:  MOVAB P.AAX, AT_COMMA > 1200 
50 01 90 00227 20$: MOovB #i, FLA : 1201 
14 0000" (CF 01 £1 0022A 218: BBC #1, RMS_XABJNL+8, 238 > 1204 
58 0000' CF 9E 00230 MOVAB P.AAY, RU + 1205 
07 50 £9 00235 BLBC FLAG, 22$ > 1206 
52 0000° cf H 00238 MOVAB Baal, RU_COMMA + 1207 
52 0000" CF 9E 0023F 22$:  MOVAB  P.ABA, RU_COMMA : 1209 
14 0000' CF €9 00244 23$:  BLBC RMS XABJNE+8, 25% ; 121 
57 0000" CF 9E 00249 MOVAB P.ABB, ONLY_RU 3 121 
07 50 £9 O0024E BLBC FLAG, 24 > 1214 
51 0000° cr H 00251 MOVAB p ABC. ONL Y_RU_COMMA > 1215 
51 0000" CF 9E 00258 24$: | MOVAB P.ABD, ONLY_RU_COMMA : 1217 
1A 0000" (CF 05 €1 00250 25$: _— BBC #5, RMS_XABINL78, 28$ + 1220 
6E 0000" CF 9E 00263 MOVAB P.ABE, TSP) > 1221 
56 6E BO 00268 MOVW (SP), NEVER_RU : 
07 50 £9 00268 BLBC FLAG, 26$ : 1222 
50 0000" CF 3 0 i MOVAB p ARF. RO ; 122 
50 0000' CF 9 $0 75 2 MOVAB P.ABG, RO : 1225 
55 50 BO 0027A 278 MOVW RO, NEVER _RU_COMMA > 1222 
0082 8F 6B 09 7D PUSHR #*M<R1,R75 + 1230 
7E 56 3C 00281 MOVZWL NEVER_RU, -(SP) > 1229 
7E 55 3c 00 84 MOVZWL NEVER-RU COMMA, -(SP) ; 
0104 8F 8B 00287 #°M<R2,RB> : 
208 8F 8B 00288 PUSHR #*M<R3.R9> + 1228 
410 Hi Ae 09 8F PUSHR #*M<R4.R10> ; 
B DD 00 93 PUSHL Al ; 
000000006 it DD 99 9 298: PUSHL HANLRMSS_JNL : 
00006 CF Of Pe 0059r eee BTR ANLSFORMAT_LINE 
i 0000° cf 3 0 M isis RMS_XABJNL+21  ~ ; 1234 
0000" CF DD OO2AA PUSHL RMS_XABJNL +24 : 1236 
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RMSINPUT RMSINPUT = Handle RMS File Input 16-Sep-1984 00:04:19 AX-11_Bliss-32 V4.0-74 Pa 6 
—V04-000 ANLSFORMAT_FILE_HEADER = Print Nice File Header 102800=13be SHY LANALYZ-SREIRMS INPUT .B3 31 9 485 
7 00° CF 9A A MOVZBL RMS _XABJNL+20, =(SP) : 1235 
000000006 F OD o5 PUSHL #ANCRMS$_AIJNL : 
1 OD 8 PUSHL #1 : 
§ D4 00288 CLRL -(SP) : 
0000G CF 05 FB 4 BD CALLS #5, ANLSFORMAT_LINE : 
| 0000" CF 9 C2 30$:  TSTB RMS_XABJNL+13 : 1238 
18 13 002¢6 BEQL 31$ : 
0000" CF DD 8 C8 PUSHL RMS_XABJNL+16 3 1240 
7E 0000" CF 9A 002CC MOVZBL RMS"XABJNL+12, =(SP) : 1239 
00000000G 8F DD 4h D1 PUSHL M#ANCRMS$_BIJNL 3 
Q1 DD 00207 PUSHL #1 : 
§ D4 00209 CLRL -(SP) § 
00006 CF 05 FB 00208 CALLS #5, ANLSFORMAT_LINE 3 
0000" CF 95 OO2E0 31%: TSTB RMS _XABJNL +29 : 1242 
| 18 13 atta BEQL 32$ 3 
0000" CF DD 00266 PUSHL RMS_XABJNL+32 3 1244 
7E 0000' cr 9A OO2EA MOVZBL RMS_XABJNL+28, -(SP) 3 1243 
000000006 8F DD OO2EF PUSHL #ANCRMS$_ATJNL 5 
01 DD 002F5 PUSHL #1 $ 
7E 04 002F7 CLRL -(SP) : 
0000G CF 05 FB 002F9 CALLS #5, ANLSFORMAT_LINE : 
04 OO2FE 32$: RET 3 1248 


; Routine Size: 767 bytes, Routine Base: S$CODE$ + 0391 
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-1984 11: 
Rsbttl "ANLSFDL_FILE = Generate FILE Primary for FDL‘ 


: Functional Description: ; 

: his routine is responsible for generating the file primary of an 
FDL spec. The file primary describes the attributes of the file. 
The rest of the FDL routines are in module RMSFDL. 


0 


Formal Parameters: 
none 


Implicit Inputs: 
global data 


global data 
Returned Value: 
none 


!' Side Effects: 


i 
i 
! 

i 
i 
' 

i 
i 
i 
Implicit Outputs: 
i 
i 
i 
i 

i 
' 
ie 


global routine anl$fdl_file: novalue = begin 


own 
yes_no: vector(2,long] initial( — 
uplit byte (Zascic 'no'), 
uplit byte (Zascic ‘yes') 
cluster_size: Long: 
local 
p: bsd, 
pp: ref blockC,byteJ; 
bind 
get_cluster_size = uplit(word(4) ,word(dvi$_cluster), 
Long(cluster_sizes, 
Long(0) 
Long(0)5; 


: All we have to do is put out a Line for each item in the file primary. 
! We cannot, of course, put out Lines for items which are not stored in 
! the file header or RMS attribute area. 


anl$format_line(0,0,anirms$_fdlfite); 
anl$format_line(0,1,anirms$_fdlalloc,.ani$gl_fatCfat$l_hiblk)); 


if .anl$gl_fat 


fat$v_fileorg] eqlu fat$c_reTative or 
-anl$gl_ fat 


tat$v_fileorg] eqlu fat$c_indexed 


Ti vant Bot tattfaigv.tieorg) eatu {atge’re nol.rms_fablfab$v_cbt) and 1)); 


11 
1b-Sep-19 4 90:04:19 ponte Blis 
14-Sep 3:01 ANALYZ.SRC 


j 


-32 V4.0-74 
RMS INPUT .B32; 1 


then 
anT$format_line(0,1,anirms$_fdlbucketsize, .anl$gl_fat(fat$b_bktsize)); 


! To get the cluster size for the devie on which the file resides, we use 
! the SGETDVI system service. The device name is stored in the NAM block. 
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RMSINPUT = Handle RMS File input 
ANLSFDL_FILE = Generate FILE Primary for FDL 
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o 


J 11 ‘ 
16-Sep-1984 00:04:19 AX-11 Bliss-32 V4.0-7 
14 et 19:93:01 LANALYZ SROd 


begin 
local L - 
device_dsc: descriptor; 


cluster_size =0; | 
build_descriptor (device dsc,.rms_namCnam$b_devJ, .rms_nam{nam$l_dev]); 
$getdvilefn=1, 
devnam=device_dsc, | 

: itmlst=get_cluster_size); 
Swaitfriefn=1); : 
anlSformat_line(0,1,anirms$_fdlclustersize, .cluster_size); 
end; 


sasritaaliats china ag nme aha 

_ _gyes noCnot .rms_fab fab$v_cbt) and .rms_fablfab$v_ctg] and 1]); 
anl$format_line(0,1,anirms$_fdlextension, .anl$gl_fatlfatSw defextJ); 
anl$format_line(0,1,anirms$_fdlglobalbufs,.rms_fabl fab$w_gbcJ); 


: To put out the maximum record number for relative files, we have to get 
! the prolog block. Set up a BSD, read it, and put out the Line. 


if .anl$gl fost fotSv ti leorg) eqlu fat$c_relative then ( 


ant SbucKet (9 0); 

pp = .plbsd (_bufptrd; 
anl$format_Line(0,1,anlrms$_fdimaxrecord, .pp(plg$l_mrn]); 

' anl$buckettp,-1); 


: For the file name, we have to produce a quoted string containing 
! the name. This goes in the output Line along with the NAME keyword. 


local_described_buffer(string_buf ,nam$c_maxrss+4); 


anl$prepare_quoted_string(resultant_spec,string buf); 
antStormat.Cine(O,T,antrms$_fdl filename, str ing. But) ; 
end; 


anl$format_line(0,1,anlrms$_fdlorg 
(selectoneu~.ani$q(_fatlfat$v_fileorg] of set 


fat$c_sequential uplit byte (Zascic ‘sequential'); 
fat$c_relative): uplit byte (Zascic ‘relative'); 
fat$c_indexed): uplit byte (Zascic ‘indexed'); 


tes)); 
anl$format_line(0,1,anlirms$_fdlowner,.rms_xabprolxab$w_grp)..rms_xabprolxab$w_mbm]) ; 
anl$format_protection_mask(T,anirms$_fdlprotection,.rmS_xabprolxab$w_pro]); 


return; 


end; 


<z 
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RMS INPUT RMSINPUT = Handle RMS File Input 16-Sep-1984 04:19 AX-11 Bliss-32 V4.0-74 P 9 
, V04-000 ANLSFDL_FILE = Generate FILE Prinery for FDL 12780071 38e 90:05:03 LANALYZ SRE RASINPUS 203 37 age 435 
-PSECT SPLITS,NOWRT,NOEXE,2 
| 6F 6€ O02 OOOC7 P.ABH: .ASCII <2>\no\ 3 
73. «65 § 8 QOOCA P.ABI: .ASCII <3>\yes\ ; 
ead -BLKB 2 
6004 OODO P.ABJ: .WORD 4 : 
003A 000D2 -WORD 58 3 
00000000° 00004 ADDRESS CLUSTER_SIZE 3 
00000000 00008 . LONG 3 
00000000 000DC «LONG 3 
6C 61 69 74 oF $3 75 71 65 73 OA OQOOEO P.ABK: .ASCII <10>\sequential\ 3 
65 76 6 4 61 6C 65 72 08 OOOEB P.ABL: .ASCII <8>\relative\ 3 
64 65 78 65 64 6€ 69 O07 OOOF4 P.ABM: .ASCII <7>\indexed\ : 


00000000" 00000000* 0066C YES_NO: .ADDRESS P.ASH, P.ABI : 
00674 CLUSTER_SIZE: 


| 
| 
-PSECT SOWNS,NOEXE,2 


GET_CLUSTER SIZE= P.ABJ 
-EXTRN SYSSGETDVI, SYSSWAITFR 


-PSECT S$CODES,NOWRT,2 


O1FC 00000 eENTRY ANLSFDL_FILE, Save R2,R3,R4,R5,R6,R7,R8 : 1273 
58 0000" CF 9E 00002 MOVAB ANLS$GL_FAT, 3 
57 0000G CF 9E 00007 MOVAB ANLSFORMAT_LINE, R7 : 
56 0000" CF 9€ 0000C MOVAB RMS_FAB+4, R6 : 
SE FEDC CE 9€ 00011 MOVAB =292(SP), SP 3 
000000006 8F DD 00016 PUSHL  #ANLRMSS$_FDLFILE : 1297 
7E 7C OO0IC CLRQ. = =(SP) ; 
67 03 FB OOO1E CALLS #5, ANLSFORMAT_LINE ; 
50 68 00 00021 MOVL  ANLSGL_FAT, RO : 1298 
04 AO DD 00024 PUSHL 4(R ; 
000000006 8F DD 00027 PUSHL  #ANLRMS$_FDLALLOC ; 
01 DD 0002D PUSHL #1 ; 
7E D4 0002F CLAL (SP) : 
67 04 FB 00031 CALLS #4, ANLSFORMAT_LINE : 
50 02 A6 01 05 EF 00034 EXTZvV #5. #1, RMS_FAB+6, RO : 1299 
02€4 C640 DD 0003A PUSHL YES _NOfRO] ; 
000000006 8F DD 0003F PUSHL #ANCRMS$_FDLBESTTRY ; 
Qi DD 90045 PUSHL #1 ; 
E D4 00047 CLRL. = (SP) ; 
04 FB 00049 CALLS #4, ANLSFORMAT_LINE : 
50 68 D0 0004¢ MOVL  ANLSGL_FAT : 1300 
01 60 04 04 ED 0004F CMPZ2V #4, #47 (ROD, #1 : 
7 13 00054 BEQL Ss] ; 
02 60 04 4 FD 0056 CMP2V #4, #4, (ROD, #2 : 1301 
11 12 00058 BNEQ 2 ; 
7E OE AO 9A 0005D 18: MOVZBL 14(RO), =(SP) : 1302 
000000006 8F DD 00061 PUSHL #ANLRMS$_FDLBUCKETSIZE ; 
1 DD 00067 PUSHL #1 ; 
E D4 00069 CLRL = (SP) ; 
67 04 FB 00068 CALLS #4, ANLSFORMAT_LINE : 
O2EC C6 D4 OO06E 28: CLAL CLUSTER_SIZE ; 1311 
| 
| 


— - -—~ - - — - —_—— — 
} 


| 1 


RMS INPUT RMSINPUT = Handle RMS File Input 18 Sep-1984 :19 AX-11 Bliss-32 V4.0-74 Page 40 
-Vv04-000 ANLSFDL_FILE = Generate FILE Primary for FDL 14 2708-1382 99: 94: :01 ANALYZ.SRCIR mS INP O88 31 ™ (11) 
EO AD DS AB OA 00072 MOVZBL RMS_NAM+57, DEVICE_DSC : 1312 
| E4 AD £0 Ab b0 0007 MOVL  RMS-NAM+68, DEVICE-DSC+4 : 
7E 7C 0007C CLRO (SP) + 1315 
7E 7C€ O007E CLROQ (SP) : 
0000" CF 9F 00080 BUSHAB GET CLUSTER_SIZE : 
EO AD 9F 00084 PUSHAB DEVICE_DSC : 
7E 01 7D 00087 MOVa = #1, = : 
| 000000006 00 08 FB OOOBA CALLS #8, SYSS$GETDVI : 
01 DD 00091 PUSHL @# : 1316 
| 000000006 00 01 FB 00093 CALLS #1, SYSSUAITER : 
| O2EC C6 DD OO09A PUSHL CLUSTER SIZE : 1317 
000000006 8F DD 0009E PUSHL PANLRMSS. FDLCLUSTERSIZE : 
1 DD O000A4 PUSHL #1 : 
E D4 0006 CLRL. = (SP) : 
| 67 04 FB O00A8 CALLS #4, ANLSFORMAT_LINE : 
50 02 Ab 01 04 EF OO0AB EXT2V #4, #1, RMS_FAB+6, R 3 1321 
51 02 Ab 01 95 EF 000B1 EXTZ2V #5. #1, RMS-FAB+6, R1 : 
50 1 CA 00087 BICL2 : 
| 50 50 01 00 EF OOOBA EXT2V #0. #1, RO, RO : 
02E4 C640 DD O00BF PUSHL YES_NOCRO] : 
| 000000006 8F DD 000C4 PUSHL  #ANCRMS$_FDLCONTIG : 1320 
01 DD OOOCA PUSHL #1 : 
7E 04 O00CC CLRL = (SP) : 
67 04 FB OOOCE CALLS #4, ANLSFORMAT_LINE : 
50 68 00 000D1 MOVL ANCSGL- FAT, RO : 1322 
7€ 12 AO 3C 000D4 MOVZ2WL 18(RO), =(SP) : 
00000000G 8F DD 00008 PUSHL #ANLRMSS_ FDLEXTENSION 3 
| 01 DD OOODE PUSHL #1 : 
| 7E D4 000E0 CLRL. = (SP) : 
04 FB O00E2 CALLS #4, ANLSFORMAT LINE : 
7E 44 Ab 3C OOOE MOV2WL RMS_FAB+ P : 1323 
00000000G 8F DD O00E9 PUSHL #ANCRMSS_ F OLGLOBALBUF S 3 
01 DD OOOEF PUSHL #1 : 
7E 04 000F1 CLRL.  =(SP) F 
67 04 FB O00F3 CALLS #4, ANLSFORMAT_LINE : 
01 00 88 04 04 ED 000F6 CMP2V #4. #4, @ANLSGC_FAT, #1 : 1328 
38 12 OOOFC BNEQ F 
18 00 6E 00 2¢ O00rE MOVCS #0, (SP), #0, #24, P : 1329 
E8 AD 0010 : 
EA AD 01 BO 00105 MOVW = #1, - P#2 : 1330 
EC AD 01 D0 00109 MOVL #1. P+4 + 1331 
| 7E D4 30180 LRL -(SP 3: 1332 
E8 AD 9F O010F PUSHAB P : 
FAI7 CF 02 Fe Botte CALLS #2, ANLSBUCKET : 
50 F4 AD DO 0011 MOVL P+12, PP > 1333 
| 6 AD DD 0118 PUSHL —108(BP) ; 1334 
000000006 +8F ODD OO11E PUSHL M#ANLRMS$_FDLMAXRECORD ; 
| Q1 db g0124 PUSHL #1 
E 04 00126 CLRL. = (SP) : 
| 67 04 FB 00128 CALLS #4, ANLSFORMAT_L INE : 
7E 01 CE 00128 MNEGL #1. =(SP) : 1335 
E8 AD OF O012E PUSHAB : 
FOFB OCF 2 FB 00131 CALLS a3 ANL SBUCKET ; 
| 6E 0103 BF 3C 00136 38:  movzZm #259, G_BUF I 1343 
06 =A 08 AE 9€ 001 B MOVAB STRING sBUF ees STRING_BUF +4 ; 
| SE 0D 0014 PUSHL SP > 1345 
| FC78 «§=6C6 OOF «00142 PUSHAB RESULTANT_SPEC ; 


OR OOOO oO 


, 
| 


RMS INPUT 
v0%=000 


51 


Routine Size: 


863 
864 


Name 
SGLOBAL$S 
SOWNS 


SPLITS 
SCODES 


RMSINPUT = Handle RMS File 
ANLSFDL_FILE = Generate FIL 


00 =«—B8 


445 bytes, 


0000G CF 


67 
7E 
7 

67 
7E 


00006 CF 


Routine Base: 


1 
0 end eludom 


PSECT SUMMARY 


000000006 


0000° 
000000006 


NOVEC, 
NOVEC 


OOWMN O NOW OM ONOWUMOOOMONOuUN—MOOO 


input 
E Primary for FOL 


2 


We POUT 3 MAA EM 2 MO NS SO MS eh 


WRT. 
NOVEC.NOWRT, 


NOVEC .NOWRT, 


= 
bad 


EAM FOVIWMO ONMOPNVWODoO —-— 
ono wn 
wn 


FDOT NDLOVGANODWLSIOOCOM MW e MN - MV "WLIVCVCW 
mao 


SCOoOOCOCOCOOOOOCOOOOOCOOOOOOOOOOOOOOOOOOOO 
COOOCOCSCSOSOSOOSSOOSCOSOCOOCOOOOCOOOOOO OOO OOOOOO 
aaa at at at st ts = 2 2 Ss SS SS SS SS SS 2 Ss SS Ss = Ss ss ss ss ss es 


OM OOWMO OC OMWWTO OTT O92 $9 0 9 - O— MMO9T"00" 
~ 
wn 


ONUIT S NVINO COW 


SCODES + 0690 


Attributes 
RD ,NOEXE,NOSHR, 
RD ,NOEXE,NOSHR, 
RD ,NOEXE,NOSHR, 
RD, EXE,NOSHR, 


~EXTRN 


19 VAKOI1 BLiss=32 Vv4_0-74 
:01 _ CANALYZ-SRCIRMSINPUT.B39;1 


#2, ANLSPREPARE_QUOTED_STRING 
WANLAMSS _FDLF ILENAME 

-(SP) 

#4, ANLSFORMAT_LINE 

#4, #4, @ANLSGC_FAT, R1 

.ABK, RO 

$ 

#1 

~ABL oe RO 

$ 

1, #2 
$ 

#1, -(SP) 
P.ABM, RO 
#ANLRMSS_FDLORG 


-(SP) 

#4, ANLSFORMAT_LINE 
RMS_XABPRO+12,~=(SP) 
Riis XABPRO+14, -(SP) 
BANCRASS _FDLOWNER 


) 
? 
R1 
5$ 
Pp 
7 
R 


-(SP) 
#5, ANLSFORMAT_LINE 
RMS _XABPRO+8, =(SP) 
#ANCRMSS _FDLPROTECTION 


#3, ANLSFORMAT_PROTECTION_MASK 
LIBSSIGNAL 


REL, CO 
REL, CO 
REL, CO 
REL, CO 
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1346 


1356 


1360 


<2 


a 


"1 
RMS INPUT RMSINPUT = Handle RMS File In Sep-1984 00:04:19  VAX=11 Bliss-32 v4.0 
i “ at ra et a hs Pea oT a4 


ut 1 
v04-000 ANLSFDL_FILE = Generate FILE Brinery for FDL 1 


Library Statistics 


: encccscs Syabol§ ecceecee Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 133 0 1000 00:01.8 
| 
; COMMAND QUALIFIERS 
Size: 2125 code + 1914 data bytes 
Run Time: 00:39.0 


Elapsed Time: 02:07.9 
Lines/CPU Min: 2096 
Lexemes/CPU-Min: 21728 
poet | Used: 355 pages 
ation Complete 


: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RMSINPUT/OBJ=OBJ$:RMSINPUT MSRC$:RMSINPUT/UPDATE=(ENH$: RMS INPUT) 
Compi 
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